home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 1 of 3).adf / ARCHIVES / Mikes_Music_Source.lha / stereo / AZ7-Demo.AMOS / AZ7-Demo.amosSourceCode next >
AMOS Source Code  |  1995-04-11  |  523b  |  30 lines
  1. ' Stereo Demo #1 
  2.  
  3. ' By Mike Richmond 
  4.  
  5. ' Simple Stereo Panning demonstartion
  6.  
  7. V=63 : Rem Left Channel at maximum volume 
  8. W=0 : Rem Right Channel at minimum volume
  9.  
  10. Volume %10,V
  11. Volume %1,W : Rem Set initial volumes
  12. Sam Loop On 
  13. Sam Play %11,1 : Rem Start sample playing 
  14.  
  15. For A=1 To 64
  16.  
  17.    Volume %10,V
  18.    Volume %1,W : Rem update volumes 
  19.  
  20.    Wait 2 : Rem Wait a bit so it doesn't go too quickly
  21.  
  22.    Dec V : Inc W : Rem Move sound towards the right 
  23.  
  24.    If V<1 Then Goto ND
  25.  
  26. Next 
  27.  
  28. ND:
  29.  
  30. Sam Stop : Rem And stop the sample